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EDTSSCRMCOL = match column 16-Sep-1984 01:36: VAX-11 Bliss-32 V4.0-74 P 1 
122808= 1382 93:38:69 DIRKSUMGMASTERSCEDT SRCISCRMCOL.BLI:1¢%" (1) 


8% ZTITLE ‘EDTSSCRMCOL = match column’ 
¢ MODULE EDTSSCRMCOL ! Match column 
gPENT = 'v04-000' ! File: SCRMCOL.BLI Edit: SMB1004 
= 
p 5 BEGIN 
007 leusnuneuseneeunenteanententetertecrectenneenerersennnenennnenententententns 
'® 
009 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
™ ALL RIGHTS RESERVED. 

tt THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN CORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
i 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 
This module fixes up the column after a vertical move. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
MODIFIED BY: 
1-001 - Original. DJS leorebe 198): This module was created b 
extracting the routine EDT $3¢ MATCHCOL from module SCREEN. 
1-008 ~ Regularize headers. JBS 1 -Rar-1981 
1-005 = Don't use the screen data base. gigce the current Line may not 


be on the screen. JBS he 
! 1-004 = Remove references to globals that aren't there. SMB 22-Sep-1982 
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3 
MCOL = match column bse -1984 01:36: VAX-11 Bliss-32 V4.0-74 Page 
-MATCHCOL = match column =3e07} Re 94:36:90 PEK SUMGHASTERSCEDT SRCTSCRMCOL.BLI:1 . (33 
ZSBITL "EDTSSSC_MATCHCOL = match column’ 
GLOBAL ROUTINE EDTSSSC_MATCHCOL ! Match column 
: NOVALUE = 


oar 
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144 
' FUNCTIONAL DESCRIPTION: 


H 1 

H 1 

3 8 1 

; 4 1 

; 1 

3; 1 

; 3 1 i 

; 94 1! Match column. This routine is called when a vertical arrow has been used to 
5 Ww 1! move the cursor. We have already moved to the new Line, now we will try to 
r 4 1! match the column we were previously in. The column we are sry ing to hit is 
om. , } gorese COL . We start at the beginning of the Line and keep movin 

; 1? orward bY a character until the next character would cause the column to exceed 
3 100 : EDT$$G_COL . 

3; 101 1 ! FORMAL PARAMETERS: 

: \9§ 1! 

; 1! NONE 

; 104 1! 

3 105 1 ! IMPLICIT INPUTS: 

; 106 1! 

: 107 1! EDTS$$G_COL 

; 108 -% EDTS$ST_LN_BUF 

3 1% | EDTSS$A_LN_END 

3 3) ! IMPLICIT OUTPUTS: 

3 118 1: EDTS$G_CUR_COL 

3 (114 i! EDTS$A_LN_PTR 

3 132 ! EDT$$G_CS_LNO 

Me bye 1 ! ROUTINE VALUE: 

; 4118 1! 

3; 119 1! NONE 

: 120 1! 

; «121 1 ! SIDE EFFECTS: 

3; 1 ¢ 1! 

3; 4 1! NONE 

3; 124 E 

3 41 5 06 4 leo 

; 126 06 1 

: 127 BEGIN 

; 128 98 

; 129 99 EXTERNAL ROUTINE 

; , : A EDTSSFMT_CHWID; ! Compute the width of a character 
132 0708 EXTERNAL 

» 70 EDT$$G_COL, ! The column we should be on. 

: 13 7 EDTS$$G_CUR_COL, ' current cursor column 

: 135 705 EDTS$T_LN_BuF, ' Current Line buffer. 

3 136 7 EDTSSA_LN_PTR, ' Current character pointer. 

3 13 44 EDTSSA_LN_END; ! End of current Line pointer. 

3; «139 709 LOCAL 

; re 4 NEXT_COL; 

; 142 712 EDTS$$A_LN_PTR = CHSPTR (EDTS$T_LN_BUF); 


Anat = match column 
HC = match column 
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EDTS$G es ty = 0; 
NEXT_COL ="0; 
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$756 ! <BLF /PAGE> 


WHILE CHSPTR_NEQ (.EDTSS$A_LN_END, .EDTSSA_LN_PTR) DO 
NEXT_COL = .NEXT_COL + EDTSSFMT_CHWID (CHSRCHAR (.EDTSS$A_LN_PTR), .NEXT_COL); 
IF (.NEXT_COL GTR .EDTS$G_COL) THEN EXITLOOP; 


EDTSSA_LN_PTR = CHSPLUS (. er LN_PTR, 
gaiss6. CUR_COL = .NEXT_COL 
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19Be 122028) DISKSVMEMASTERSCEDT SRCISCRMCOL.BLI;1°” 


! of routine EDTS$SC_MATCHCOL 


senacoL EDTSSCRMCOL - match column 


G_COR_COL, EDTS$$T_LN BUF 
SA=LN_ peat EDTSSA_CN_END 


EDTSCODE,NOWRT, SHR, PIC,2 


EDTS 
\v04 
EDTSSFMT wilt EDT$$G_COL 
EDTSS 
EDTS 


EDTS$$SC_MATCHCOL, Save R2,R3,R4 
EDT$$G EUR RaCOL. R4 
EDTSSA-LN_PTR, R 

EDT$$T~ “tN “BUF. EDTS$SA_LN_PTR 
EDT$$G~CUR_COL 

NEXT foc” 

EDTSSA_LN_PTR, R 

EDTSSA_ LN-END. 

NEXT_COL 

(RO) =(SP) 

a. EDTSSFMT_CHWID 

RO. NEXT_COL~ 

NEXT COL; EDT$$G_COL 
EDTS$A_LN_PTR 

NEXT_COL,~ EDT$$G_CUR_COL 
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EDTSSCRMCOL EDTSSCRMCOL - match column 1b-se Sep-1984 VAX-11 Bliss-32 V 
TO e000 att ts -MATCHCOL = match column 300-138 9}: 38: 9 DISKSVMSMASTER: cto + sRCSScRMCOL. BLI;1 (4) 
; 160 729 ND ! of le EDTSSCRM 

: ie O78 of module EDT$SCRMCOL 

3; Ve 731 LUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

: _EDTSCODE 71 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

Fae Symbols ------- Pages Processing 

: File Total Loaded Percent Mapped Time 

i _$25S$DUA28:CEDT.SRCJEDT.L32;1 377 1 40 0:00.2 

> ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 36 7 $b: 8074 

; COMMAND QUALIFIERS 

; BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACEBACK/L I SeL ISS: SCRACOL/08)=08 8: SCRACOL MSRC$:SCRMCOL .BLI/UPDATE=(ENHS: SCRMCOL 
3; Size: 71 code + 0 data bytes 

3; Run Time: 09:19 1 

5 Fy aesed Time: 0:12.4 

3 s/CPU Min: 4351 

3 Ponce Makes 11863 

; Used: 62 pages 


; compile 


tion Complete 
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